home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 November / Macworld (1997-11).dmg / Shareware World / Comms & Internet / Yadora / yadora-msg text < prev    next >
Encoding:
Text File  |  1997-08-26  |  731 b   |  20 lines  |  [TEXT/ToyS]
  1. tell application "NewsWatcher"
  2.     set fromAddress to getarticle messageField "From"
  3.     set theSubject to getarticle messageField "Subject"
  4.     set theDate to getarticle messageField "Date"
  5.     set groups to getarticle messageField "Newsgroups"
  6.     set theBody to getarticle messageField ""
  7.     set newbody to "Newsgroups: " & groups & (ASCII character 13) & (ASCII character 13) & theBody
  8. end tell
  9.  
  10. tell application "Eudora"
  11.     make message at end of mailbox "out"
  12.     set field "from" of message 0 to fromAddress
  13.     set field "subject" of message 0 to theSubject
  14.     set field "to" of message 0 to fromAddress
  15.     set field "" of message 0 to newbody
  16.     set status of message 0 to unread
  17.     save message 0
  18.     move message 0 to end of mailbox "in"
  19.     activate
  20. end tell